home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / sprite menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.2 KB  |  42 lines
  1. 10 rem  sprite menu
  2. 20 gosub50000:poke53280,6:poke53281,13
  3. 30 print"[147][144]"spc(10)"[211]prite [211]crolling [205]enu"
  4. 35 print" [215]hat would you like to do?"
  5. 40 print"  1 ==> [210][213][206] the [196][196][193][212][193] program?"
  6. 42 print"  2 ==> [210][213][206] the [196][205][193][201][206] program?"
  7. 44 print"  3 ==> [210][213][206] the [196][196][201][211][203] program?"
  8. 46 print"  4 ==> [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]?"
  9. 47 gosub100
  10. 48 :
  11. 50 print"[215]hich? ";
  12. 52 poke198,0:wait198,1:geta$
  13. 54 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"then52
  14. 55 :
  15. 60 printa$
  16. 62 ifa$="1"thenf$="ddata"
  17. 64 ifa$="2"thenf$="dmain"
  18. 66 ifa$="3"thenf$="ddisk"
  19. 68 ifa$="4"thenf$="hello connect"
  20. 70 :
  21. 80 print"[147]"spc(11)"[204]oading program..."
  22. 82 :
  23. 85 print"[153]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  24. 90 :
  25. 100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
  26. 110 print""a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
  27. 120 poke2023,42:poke56295,peek(55296)
  28. 130 return
  29. 50000 poke53281,6:print"[147]"
  30. 50005 print"[147][201]f you have not copied [196][196][201][211][203], [196][196][193][212][193],    [196][205][193][201][206], and [211][208][210][201][212][197] [205][197][206][213]";
  31. 50010 print" to another disk, then you must do ";
  32. 50015 print"this before running    this program."
  33. 50020 print"[211]elect:"
  34. 50030 print"<[209]>  [209]uit to [194][193][211][201][195] to copy the programs"
  35. 50035 print"<[210]>  [210]eturn to [204]oadstar"
  36. 50040 print"<[195]>  [195]ontinue: ([217]ou have already copied"
  37. 50045 print"     the programs to another disk)"
  38. 50050 gett$:ift$<>"q"andt$<>"r"andt$<>"c"then50050
  39. 50060 ift$="q"thenprint"[147]";:end
  40. 50070 ift$="r"thenload"hello connect",8
  41. 50080 ift$="c"thenreturn
  42.